home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / misc / gms_dev.lha / GMSDev / Source / AMOS / Pixels / pixeltrail2.s < prev    next >
Encoding:
Text File  |  1980-01-11  |  867 b   |  58 lines
  1. '
  2. ' Pixel Trail code by Peter Cahill, September 98
  3. '
  4. '
  5. ' TGE demonstration......
  6.  
  7.  
  8.  
  9.  
  10.  
  11. AMTPIXELS=20
  12.  
  13. Dim X(AMTPIXELS),Y(AMTPIXELS),C(AMTPIXELS)
  14.  
  15. G Def Palette 0,$0,$111111,$222222,$333333,$444444,$555555,$666666,$777777
  16. G Def Palette 8,$888888,$999999,$AAAAAA,$BBBBBB,$CCCCCC,$DDDDDD,$EEEEEE,$FFFFFF
  17. G Screen Open 0,320,256,16,Glowres
  18.  
  19.  
  20. Do 
  21.    MX=G X Mouse
  22.    MY=G Y Mouse
  23.    
  24.    'Update Pixels 
  25.    
  26.    For LOP=1 To AMTPIXELS
  27.       If C(LOP)<>0
  28.          G Plot X(LOP),Y(LOP),C(LOP)
  29.          
  30.          C(LOP)=C(LOP)-1
  31.          Y(LOP)=Y(LOP)+2
  32.          
  33.       Else 
  34.          FREPIXEL=LOP
  35.       End If 
  36.       
  37.    Next LOP
  38.    X(FREPIXEL)=MX
  39.    Y(FREPIXEL)=MY
  40.    C(FREPIXEL)=16 : Rem                               brightest colour 
  41.    
  42.    G Plot X(FREPIXEL),Y(FREPIXEL),C(FREPIXEL)
  43.    G Update 
  44.    G Cls 
  45.  
  46.    If G Left Click=True Then Exit 
  47. Loop 
  48.  
  49.  
  50. G Screen Close 0
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.